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(57) Abstract: 

PROBLEM TO BE SOLVED: To retrieve a character string over 
plural lines contained in a text file. 
SOLUTION: A text file 401 is stored from a storage device 
40 into an editing area 151 of a storage means 150 and 
displayed through a text display means 102 on an output 
device 30 by a text control means 101 of a text editor 10. 
When there is a code showing the presence of a continuous 
line in the text file 401, on the basis of retrieving 
direction information 153, a phrase analyzing means 103 
regards that the character string is continued from the 
preceding line and while considering quotation marks or 
the like enclosing a partitioning character or constant 
corresponding to the kind of the text file 401 for 
continuing the character string, a token is extracted and 
stored as a token list 155. A retrieval character string 
154 is retrieved from the token list 155 and stored as the 
retrieved result by a character string collating means 
104. 
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1 

[4#i*lS*oi£ffi] 

****:*tfE«#«i:. A^gSi:, W^^©<t^{f 

ISC^U fc«r*&E«*X*M fcflrEE*** L , 

*MB«*«WK^b«Hay** h7r-f^W*HIU tf 
Sr*fc)ft*«««t»3e«:*ltUTS:*W*r loo h — * > 

y* h*&«uwiEia«^*t»jtti-smiB^i!f«f* 

tt*«rffrft Ll»lBB1t*«Jc*»i-**»|B3t*«IBR-&* 

u mE*3M8*fcLfca*oTiroE^*;* h 

^^ij^riocTD h-f^t iridii, jsaj^n*: h-* 
ee«#««c*im-*is 3 mnmMm&totfi 

{c Lfc^oTittjEx** h *y -f/i-Ji — y/i^^Ii 
[ft*93 ] a.— !f«cj: 5 AAS8«*r^LT»**n 
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tC U/c^ oT fttjEx** h Xy /U_h<7>#— y/U*r|fr» 
t* ^ IB 4 CO # jig £ £ a > tr * - ? \z m ft £ * 5 ^ a ^ ^ 
A £E^ L/c r «r»*i: SIB»Kf4c 0 
[1**94] x** h ttMVr^&cb, 

ff«r*UMtflL l**X*W, h-^>-y 

^^n«f»r-*)S7^^ k 7r>r^ SrtfriBH* 
iritiiL, ^m^^fc atB^n^ih-^ 

Stttb $ ^fc^:^iJ(D3t^* com** hteZ SftE«*fe 

igi^jrjEx** h7r^^**lEti5*SS«^*^L, 
fflE«5flte*«cL/S:^oTS(rEx** h^r>T^iiO^ 
-y/u*:»»-rs*ftEx** ^rftSr 



3 

«r*fc**S3K«»«*:#*LrX*W*r loo h-^ > 

«:*fc36*SJ»*»36*r#it UrX*W«r 1 oc7> h-^ V 

£ <Dm*> h ft Sfc*IS**:m* UftMaiBt»*«(c*jW-r 
5J&3o^JiH<b, ffiGflftttttaffilBT-*;* h77>f^ 

[lf*Jl7] mUv-^r^ h77 -</KO#fTOtT#*« 

lft < ffiflS^-6]»«f #a*r^-r 5 r. £ -*--5W#« 

[IS*^8] fttjfEx*;* h77 Y/K7>#tf *>fr#-S§-^ 
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[0001] 

[0002] 

lt», mm 

¥5- 1 5 1 2 6 6 -%^«J !E«0>atffa**> 5 0 - 
«tt, >T K77^^t>ift«iCU^lSWl- 

D^7A^^A^t5A*gi^ fitjiay-^^n 
ley— ^^"n jutc-r K^ixrt^^rco^ 

j/^77-f^^77^M«i:> ^^5/^77^^:,!; 

zmm^Ttem? r *r ;>igf-^nciit5ftS7 

[0 0 0 3] 

Hl^tt, «*Wf:RW^B^7Al:#ir3. 

[0004] *j8«w|»tt t h >f/KZ>|Mfc 

/uo^ (c *s c x ft k ti ^ -r ^> w ^ r- -5 . 

40 [0 0 0 5] 

5^7 miB*^»#r^«. (WlBX*?iJSR-fr*«* rfccfctf, SUIB 



5 

ittJE^** h J: t>ffllESB«^«^ 

S9EM*««j&»fclWE^** h^r-Oi'SrR^fciiU fr 
*:*fc35«6iMl*»**r#ltUr3C*W*: l oco h — * ^ 

[0 0 0 6] *»WO*l«>3C*OT**3[rtttt, ^-if 

a*oT#iKu mE«*ac*w«>#«£-r«ff, #^a, 

tr. 

[0 0 0 7] *lW^*10|5Sffi*ll ^-iHcJ: *) 
**l:»»t4*i«)¥llSi, ffilBGIIffttonEflft 

•tsd^bjwET 1 h 77^ fr&m&mi^. rt&&tzfr 
^mmm^^^m^x^^ i oco v—z ittt 

LffifEE*^*{c»fft-r5*2W^«^, B9EE«SS« 
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«*U WE«*3t*?U©#<£-#-»fT, #7A, fciU! 

ftS«*ft**^umEE«^«fc»lrt-rsjS3 0^ 
ffl£* WEWAWagoiWE^^^ H7r>T/uSraA»« 

* t- ft fT £ -fr 6 :/ o ^ 7 A £ E » -t £ o 
[0 0 0 8 1 ^0JCOm2O3t*^J^5^v-^^^i^, X 

ttatX^yih h-^>-l/;*K *3£uM£ 
5R«S»*:*bEtt**i:, A*SS*£, a*SS«**H» 
3.— tPfciJ; !?WEA*»«*r^brJt3e**tfc** 
^*r^5f^ h7r-Y/^«rlWrEli*fl(«fc*iftb, 
**«>*lRl*:*-riWfE«**lRl**, *5J:W*5R*lxS 
X*OT**^lttE«»X*W*rJ»EE«#«fc*l* U 

x^r^ h*«¥«*r*J«l-#-*imE^*^ h*J»#«£, 
*0 l»Ey*^ h*»*«*»b»Jt^rcj: 01WEE«#««> 
ffirE«*««^bWE^^^ h7 7^yHrM^tt}t, *Q 
EWWWlOW^blWE^*^ h77^f^7^ hie 

E«*««c*»-r*lWE*^j!f«f**!:, Kf^r^ h 

*-fp)il»«{c Lt^otftiL, t»E**3t*yiJO#ft-t- 

m<r>-X*&k t <n&j)> b ft 5 Stress SR«f««rfNA bftUEE 
«#«(c»Jlrt-rsWE3C ; #=?iJS-&^«^, JtlJEir*;* h 
«W«*«^b<oit^J:0, mE«*«*oSfrEx*^ 
h7rY/u*rWEa*SS«lc*33%U, fflFEttMSKIc U 
fc^otSl5f#^ h 7 7 ></u_h(0^ — y/^^r^li-f -6 

[0009] *nm<on 2 ox*w***8fe». 

^h77>f;^lM^I:ML, ^^o^fSj^^-r^l 

«rEtt¥A^«M-#-«ffl09#«&. ^EE«#^ottj 
EH*««^bfflEf*^ h 77 -Y fr^m^m^. 7-* 

50 A , ^Jlt/^-rSff^feSaffl^ix^ h-^>03t* 
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» t fts h-^>-y^ h&£j*biiftiafas^& 
^^JjUc L/^oTiitjfBx*;* h:7r ^_bco#-y 

[o o i o] y£&m<n / &2<Dummmit. 

lid* fe ft 5 h- h*r±fi»UWHBlB«*«^**ft 
OT^mfT*»bi««^Sfc*ftUX^J«ri*l*S-er, 

tEx** h 77 >r/UO#fT^tT#*«*Srtt*»*d»b 

fT*»b*l«r5^*ftLit*^J«ra«$-e:, ESJ9£r^ 
^ft£Hfr3i£m£&9i&<]tnfgm20^ 

[0011] 
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\0t, ^#-Kf^gf 20^ v^^^l^ 
[0 0 12] l5S£gtt4 Oil fLhTLML, ft® 

[0013] h«i*&e i on v~** hmmm 

S10U, X** hS^tl 0 2 *4<JlWr*« 
l o 3 t , X*3FUBR-&*« 104^ lEtt^S isoi: 

[0014] £7t, ffitt#Ifi:i 5 OfcLfl flMMMEl 5 

154, h-^yy^hl55, ttSMSJR 15 6 d«*M 

[0 0 15] h*J»^«l 0 111 h77 

5 1 {£R^i£**X*:x=** h77^/M01 6Qf*) 
^^rr^^ h*^£.R 1 0 2^r^LTtb*^S3 0 

7}3£® 2 0 £^ LT^^ Ufc*5R*lRlflMB 15 3 £rfH« 
5 0 

[0016] 7-** h*^£« 10211 h«J» 
fftlOl 3&^<7>jf^{cj; 9, flHMHEl 5 1 ftcox* 
^ h 7 7 >f ^ 4 0 1 S: ffl A SRtt 3 0 t */Tt 5 . 
**WMcll 5 6©ffi*^#-y/uSr»lH- 

5o 

[0017] ^»«f#«l 0 311 ir** hfffl®3M£ 
1 0 1 ti*h<F>m7F\Z.& D1B|»#«1 5 0Olftfl«l 5 

l^^x^r^ h77^/Moi StR^wl, H^yy 

[0018] 3t^JK-&#«: 10411 *^3*«f ^« l 
o 3icj: vtki&Ztiti h-^yy^M5 5&«s?ru 
ttSI3C*yiJ 15 4 ^4f5tf«?)M^«^Si 5 
6<J:LTf^i^L, lEBf«l5 0l:*JWt5 B 

[0 0 19] tt3?#ftflHBl 5 3 1^, a— ^^AASSfi 

;u4 0lo*-y^ttflJ:D±*ifi], T^rfSico^^b^ 

[0 0 2 0 ] «^3t^^Jl 5 4il a.— !f3ft«AAS6«2 
0 LT^S:^ Lfc«^-r-<# X*?IJ-C*>*. 

[00 2 1] &lZ. y 7-*c* h77^f/M01, h — t?^ 

«at*lP3flia 15 3, «*3t^J 1 5 
4. SSt&^l 5 6iCO^ta«t5 0 H2tt, X^r^ 
h77-f/M0 10-«Sr/7t8Si , tf*)5o g|3«:, 

h-^yy^ hi 5 5o-«^tRSH-efc5. 14 

[0 0 2 2 ] 12^1^5^ X*;* F77Y/M0 



(6) 

li4, fcirxJi, COBOL^yDi/yAy-^^lBi 
bfc^^r^ hr^7r^/^6 0 **Tl4, ^A63t 

14, X^J* 0 2lC£ 0, tiJ*JglS3 0 COM 

Bfcl*^£it5. fit, 3.-fi«AAKl2 0i^S 

[0 0 2 3 ] H3fc#«t8i, h-^yy^M55 
14, ^»8rfgi o 3X-*k&£thZ> V — 9 ><oV * h 

^ftt2)7*^ h77^/M 0 1 CO*T, ^^ACO^g 
^2:3^14, r IDENTIFICATION J 9 , fifOffiSfllft 

r i j , #7*offi«*«i4, rgj , ri4j r- 
£>£o ::t-, r s j is, h — ^ y^t^j tidentifica 
tionj <D%m<n-x^ ru jd^ft+SBBtt^T-^T 1 *) 
t) , ri4j 14, h — r identification j go 

[0 0 2 4 ] 4***141**1 1 5 3 14, a.—9»m^MOt ' 
3 o (DMi:^^rP5f^r^ h7r^^4o ^ 

— yyUtf>tt«3fl«, fT#* TO 0 0 1 2 Oj GOfTlCfctl, 
tf, r_bj 6D4§-£\ To 0 0 0 1 Oj Off— ro 

0 0 1 2 0 J ■ ©fTi'C^sRISi'C*) 5 , r~Fj (75® 
-g\ fT*# To 0 0 1 2 0 J GOfr~ To 0 0 4 4 0J (30 

[0 0 2 5 ] ttfff :£3=*y 1 5 4 14 , 9 s 36S«S«r*H 
-TS3:^yiJ«r^-rt>^-t?*> D , fc£x.i4, TAABBj ate ^ 

[0 0 2 6 ] !4*:#St5i:, tfcSf 1 5 6 

14, ttfRsnfcx^j^fti-sffia^^-t-t^-efc 

9, (29, 29, 2)oT29j, T29j(4, ttl 

^^T*^>i9, r 2 J 14, tfcjRX^Jl 5 4 CO t<Z> 
fTfc#*^6X*o:*#*^kS- (30, 1 

6, 2) o f3oj , r i 6 j 14 . -tix-en, ft*** 

*J 1 5 4 COftjm^l#$c< 3t^60 9 *>**3603t#=^^ 

*7At*fc?), r 2-j J4, ttS&X^iJ 1 5 4 <fc 40 

5*>, ^cofftc^ft-T^^coit^^T-^So 

[0 0 2 7 ] &tC, #389j*>» 1 ^^O^figOSfrfMc 

10 3OlM^t7n-ft-hT^5 o gi6J4, ffi 
^)gf 3 0OMffi£*^£n5tfcWB*l 5 6(D- flftj* 

[0 0 2 8] ^--iff4, «S^ft-Cfc5f h 

(fci:x.l4, f£i 2 C/^tCO B O L CO;/ 
* ^7Ay-7) ^gi2 0$:^ir, M 
«gf 1 OC^tSo 50 
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[0 0 2 9] hSISi^Sl 0 COx*;* V *J 

0 1 14, IfSdiK*:^*;* h77^f/M0U 

14, -r^r^ 1 0 2K:II4HH«l 5 1 (Dv-lcX 

h77^/M 0 l ^/Tt6J: 5 tcJf^-r-So 
[0 0 3 0] hm^^&Ll 0 2i4, h$J#P 

^h77>f;>4 0Ua^ttj^ tn^gf 3 OOlill 

[0 0 3 1 ] «cic, ^--if^, 3 0 coHJffi^r^ 

fe#fc*fl£4r*lfcU A^gf 2 OlcJ: 19 , #-y/u£ 

77 -Y/t-4 0 1 <D9cm<nff\z&W}£-&Z>) 0 # — y/uco 
*£®jJ4, -r^r^ h»J»^«:i 0 1 , x^r^ h**fSl 
0 2^itaiMt3 o\zfcx.hti. # — y/no»» 

[0 0 3 2 ] A*gf 2 0 36^ , 

^r^'lt^l 5 3, **3t*Wl 5 4£A^-T££, ir*- 
* hi»?8i 0 ii4, tn-en, lEttt*«l 5 Ofcl* 

SR^lS)*** 15 3, &mJCtt\ 154 «rttJH L (tit X. 
14, ^m^Tf^'fS^l 5 3(D Tfj , **3t*Wl 5 4(D 

taabbj ^|b«#»i soicftttsns) , f^*«r¥ 

i&l 0 3^iit5 0 
[0 0 3 3 ] jg»Sixft:^*«f#«l 0 3 14, ir** 

cot?) SrSJt»D, B«#iBri 5 Od»fe***W*«l 

5 3tR*fflu mm&fflz&jz-rz (bssd . ^ 

<n>m%, # — y/H4JfcSRo>fTfc:*> t) , ^^^(^14 rrj 

[0 0 3 4 ] *^I»*f#« 1 0 3 14, ^tT^fT# 
(05S2) o 

[0 0 3 5] SIC, ^»Jffgl0 3«:, 7^7A@ 

t^, />^7V T-j (COBOL{C^5l/>Tl4, ^^^TT* 

a*&5*-&l4 (H2fT## rooo3 

ooj cot?) , 3t*M*iwrfT^feaiK-rafc*ftL, 3t 

*W«r»«*ii:6 (0 5 S3) 0 
[0 0 3 6 ] *4fJ*W#« 1 0 3 14, «5^j£Sd> 

^rE^Di9 (E^)"9»^) tit, iC^mfrh b — flsZ: 
ttffi-TS (§5S4) o @3l:*tJ:5lc, 

TIDENTIFICATIONJ , ToiVISIONj , r PROGRAM- ID J « 

[0 0 3 7 ] ^«3*«r^S 1 0 3 i4, ttffi U^c h 

[0 0 3 8 ] ^-fe3**f#S 1 0 3 (4, # h — ^ V 

W3t^WffSt6f^^ h77 -f/^4 0 1 (O rtf J , 
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mti,xmtti-tz (gi5S6) . h-^vco^c^ij^ig 
rooo3ooj coffin ft, 7^7Agl:, r-j ^# 

iSE-fSOT-, T 0 0 0 2 9 0 J <D'ff<D3C^&\ l""A 

AAAAAJ £ff#^ TO 0 0 3 0 Oj <Dft<0 T'BBBBBBB'j 

tftmtSt^itx^&lt&teZti. b — taaaaaabbbb 

BBBJ lC#LTft, ffig'ISffl ( 2 9, 2 5, 6) , ftrg 

At* (3o, i6, 7) swaasns. 

[0 0 3 9 ] ?^»ff¥Sl 0 3 11 h — 

1B«#» 15 0 JCft^f 5 (0 5 S 7 ) o 

[0 0 4 0] x*;* h*J»#.g:i 0 1 ft, 3C^?IJ 

I^8i0 4«rjB»t5. jBKr*nfc3t*WHR«fr#« 

104ft, Ett^«l 5 0**b«**lRlflMai 53, ^ 

>^M55 SrlfcS U 15 6 £fet&#l£: 1 

5 0l:W5o teSS^IJl 5 4fl* TAABBJ 

t, 8i^i5 6il Taabbj h — 

'ftnT'foZ (29, 29, 2), (30, 16, 2) t 
fr5 (04) c 
[0 0 4 1 ] &tC, T-^r^ hflMfftl 0 1 ft, X*;* 

^« 10 211 E«^« 15 0 15 6 <7><£g 

r<D»£\ 2 9*TgcD 2 9i7^ AtC^-r^o IE 
ftfSl 5 0**fcl*5R3t*m 5 4 4:MU fcii^S! 

[0 0 4 2 ] ^ioi 5l:ir, S^fTlcifc***:*:* 

[0 0 4 3] 2(7)»^IICO^T 

[o o 4 4 ] 2coHlcoiIii, #-y/uco 

iz.£v&mi&m$:W:&-rz>^m (bssd t. 
-rs^jii (I5S2) t. mmftx-$>z>zt&iF-r&'% 

^fc^i^ii (0 2fT#-§- TO 0 0 3 0 0 J GDfr) , :£ 
(I5S3) Km V -X^f- UtbfUf r^^^-t 

(15S4) t. ttffi Ufc I — ^ j£g:£Kt?§l 
x_H =r — >a ^ r-j % :fcj:t/ 
T'j ) $r^i9^<^J(g (I5S5) t. %-b-?zs<n 
3t$WMt5 7^^ h77>f^4 0 1(D rffj , h 
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£ Uratli-rs^Jil (05 S 6) h-^v^fltfifll 
-tirT, b-?>V* h 1 5 5 t LTiESt^ 
«1 5 Oll^fSfl (0 5 S 7) fc, E«#«l 5 

o*»b***rtH(Miii 5 3. 5 4*«*tti 

U ttiRJB* 15 6 «rE«#« 15 0 

£ , E«^« 15 0 OttKIS* 15 6 cr>teg'IS^fcS<5 

r^f^4 o U^tS^-y/^SStS^JBi:, EtS 
1 5 0*»fe*»3t*?Ul 5 4 *:K*au mfo&w: 

[0 0 4 5] ^C^Pjom 3 C0|^lfeOJgfl|^Ol/>'C 

&g (ft§s^t?) . Et»#*»*iRi**i 5 3ia^ 

» *ISH«:*ffi"rS*« (05 SI) ^fT^f?##^ 
(05S2) ««ff-efc5r^*/7tfft^*?Sf 

-g^ft (0 2 fr** r o o o 3 o o j off) , ic^fum 

?Tfrt=>mi$i-tZ>t&teL,. 3C*W 6 *W (0 
5 S3) i:, E^0t)5C#= (fc^rx.^ r^^^-<— ^ j , 

SRtBHoaC^Wd^b h-^y«raHit5¥IH (0 5S 
4) ftHJLfch-^^fe, S«:«:Htp5lfflW (7t 
^x.ft, a—^—^a >-^-^ r*j , *5j:^ r-j ) ^ 
30 ^y>m<^m (0 5 s 5) t. 

ftf^f^^ h77 ^f/l-4 0 1 CO Tffj , ^>C03t 

-T5^W1(05S6) h-^v^tt«*«i:S:»« 
^-ttT, h-^y'J^M55i UTEti^^l 5 0C 

(i5S7) tate#^i 5 ot^ifem 

*ffi]««l 5 3, fcSRX^Ml 5 4$r^^.ffiL, ^ttb 
tC5-5^T, h-^yy^hl5 5^fl, 
15 6 SrE«^S 15 0 Iztem-T Z^Mt s Ufc^fk l 
40 5 0©«S1B*1'5 6©ffiB*«lcS<5^t, ffl^^g 

3 0 cDMffitc^^^n-Ct^T 1 ^;* h7r^/M0K; 
ft-rZZ-V/i'$:&M-tZ^Mt. E«$Sl5 0A»b 
«3l3C*yiJ 1 5 4£i*^mU fcti*^S3 0 <7>iHffi<7)# 
«S-*-53t^J«rS«i*^-t-S#«^S:3 >tT ^ — ^ 2 0 
0 (titx.&. r^hiigf 10) {c^ff^-ii-S^ 
p^7ASria»t5ESJt»2 2 0f*)5o 
[0 0 4 6] «|Wf4 co^^co^^^o^T 

Hffi«:#SgLr»*ffl^RWrs. 08ft. *^«^S4 
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o»»<DiB«^ft 1 5 oKAWrstau*«i 5 7 

£t>CDT-&£,> C(7)*ffafliJ««15 7«:, r^h7 
^4 o i<nmt& UttX-tts COBOL^^n ^ 
Ay-^, c n y?<uy— jc^f^ufch- 

^V<Dtta«flU*r^tftO-C*>!3 (fcfcjfctf, COBO 

tc^L— AA¥ft2 o&rfrLTiEt£3M8:i 5 0 

[0 0 4 7 ] 3.— J 8 **, A^^#2 O^bf^ hflft 
8f 1 OlCf^ h7r^^4 0 1 Offlg£ -5- , /tf 

hl$gll 0 <DT*r* hMflfftl 0 111 ^ 
*3«Wf 10 3 tlBSr#t, *4g**r#« 10 3 
li, E*¥«l 5 O^KPfffiaiJf «1 5 7^^3&»b*t 

ibixfcx** h7r^;M o l oa«t:#jES-rs h — 9 
>^ttffiSiaiJ*:aSiRU ^S^^r, f^h7r 

co^o^^r^ h^r 0 1 (^triffl^^^ 
[0 0 4 8] ;£$g^(7)Jg 5 om«li:o^r 

[0 0 4 9]«P^f5Oil«lli j& — V/KD 

tcj; G«sSSaKH*:ife5£-t-a^« (05 SI) *fT*> 

(H5 S 2) -r^^ h7r^f^40 10S 
^tcjfcteb*: h — ^^ttWO«au*rlB«*«l 5 0<7>8f 
«r»ao««li 5 7j&»fe3StR-rs-r*^«fc, aSRSixfc 

U 3 #JGI (0 5 S3) SK^ix J0 

(05 S 4) a**nfc h — *^«ao*HUlcX<S 

(I5S5) h — * 3 

x^-^ h7r^/M 0 10 rtrj , h — ^ vco^t^Uco 

ffi (05 S 6) 

T, h — * > y ^ h 1 5 5 t LTKMt^Jftl 5 0M»*ft ^ 

(05 S 7) Ett^fftl 5 0 
Ml 5 3. tfcStX^Jl 5 4*rR*WU ^rtibCi 

h-^^hl5 5«:tjlSfU 5 
6 $rtatg^l£ 15 0 (C^fS^l^:, IB«^» 15 0 
(Ot^l 5 6COttgW«jcS<3t>-C, ffl^g!3 0 

«ct/T^nTP5r^^ ^77^/^01 ic^j-r 

5#~y^£»Br*-*^«i: % ISft3MS:i 5 Ofrb&m 
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[0 0 5 0] ftC, 6 COHl^^lCO^T 

[0 0 5 1 ] &&m<DfS6 <DMM<DMt&\*. $ — VJU<D 

&&-rz>tiLW (frmom , i5tt¥*^^^«^i 5 3 

KJ: D**«H*:»ft-*-3*JH (05 Si) *fT*> 
"T^^Jffi (0 5 S 2) ^r, x=^^ h7r^f/M0 icoS 

M\z.ttfc^tz b-?>i&m<nmm&mfe^&i 5o«« 
*9sayflt*u 5 7 frbmvi't z-r z^mt . m&zti*. 

U ±^yiJ*3MI**ii:S#« (0 5 S3) 31K£n 

(05 S4) IRSiifc h-^yftfflw«flij«d 

<¥« (0 5S5) *h-*>Mt*W##«£-*-<5 
T 1 ^* h 7/ ^f^4 0 1 <D rfif J , h — ^ VCO^C^^IJCO 

« (B5S6) t, h-^vi:tt«i(MB^*r»a:S* 
r, h-^yy^M55i: Lria«^«i 5 o{c»» 

tS^Ji (0 5 S 7) ^r, ta«#«l 5 0*»b|ft**lRl 
««15 3, «S5g3t^Jl 5 4*rK*liiL, ttlh\Z.m 
^^T, h-^yy^hl5 5£;|&3ltU 5 
6 ^rfatt^lft 15 0 izftth-r&^mt* 1E«^« 15 0 
OttRfi » 15 6 Ott««*^»<5^r , ffi^?$lg 3 0 

3C^U 15 4 m^l^g 3 0 OBB^SSt 

33t^lJ^:S^^-rs^■J51i:^='>'t , '^-^ 2 0 0 
(itt^li. r^MIgf 10) Ki*fT*-*a^o 

[0 0 5 2] 

[^^to5&S:] *«S(?)Sl©M«:, v-** byr^C 

[0053] x^r^ b y r ^ ^\^mmnx' 

[0 0 5 4 ] &&m<n% 2 ^>«r co^^cox^ 

^ h77^M:^r^6^ir^5 8 
[oo5 5] -to3S6«. fif«?«ay*»ai: iti^^ 

[0i] i wm^i^typ ^/^0-e 
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[0 2] ii(?)f^ h7r-<^^-WSr/7tRSit- 


3 0 






4 0 


latest 


[H3] 0 1 <D V — t isV X h©-«t*tRWBT* 


10 1 






10 2 




[14] 1 1 ©*S»ft(D-«|t:*tRBBT?*)5. 


10 3 




[15] B 1 <7)^*«f#«o»ftSr,Tt7 B-f 


10 4 






15 0 




[16] 0 1 <Z>^^$S«<7^^0— ffil^tfaWBt-*) 


15 1 


mm 




15 3 




[B7] *^PJ(50^3, f e^t^M^t^n y 


10 15 4 






15 5 




[id] *»WoJK4 0**o»tt*rw-r^D j/^Ht? 


15 6 






15 7 




[??#tf>K!f3] 


2 0 0 




io h^m^s 


2 2 0 




2 0 A^?^® 


4 0 1 





mi] 



[12] 



[04 ] 



7T 



4 0 



V 1 " 












101* 


10 3 



15 0 



10 2 



15 3 15 4 



15 1 



4 O 1 
:r*^ 



15 5 



15 6 



1 o 



3 0 



[16] 



000240 WORKING-STORAGE SECTION. 
000250 01 www pic x(02). 
000260 01 I pic 900). 
000270 01 B pic 9(10). 
000280 01 XXX PIC X(256) 
000290 VALUE IS "AAAAj 

000300- * g3 BBBBB". 

000310 PROCEDURE DIVISION. 
000320 HA IN. 



000010 IDENTIFICATION DIVISION. 
000020 PROGRAM- ID. RFILE. 
000030 ENVIRONMENT DIVISION. 
000040 INPUT-OUTPUT SECTION. 
000050 FILE-CONTROL. 

000060 SELECT aaaaa ASSIGN TO "DK-RFILE* 

000070 FILE STATUS IS www. 

000080 SELECT bbfabb ASSIGN TO "DK-HFILT 

000090 FILE STATUS IS www. 

000100 DATA DIVISION. 

000110 FILE SECTION. 

000120 FD aaaaa. 

000130 01 A. 

000140 02 PIC X (10). 

000150 02 B. 

000160 03 D PIC X<1). 

000170 03 E PIC X<2). 

000180 FD bbbbb. 

000190 01 A. 

000200 02 PICX(IO). 
000210 02 B. 
000220 03 DPICXO). 

000230 03 E PIC X(2). 

000240 WORK I NO-STORAGE SECTION. 
000250 01 mm pic x(02). 
000260 01 I pic 9(10). 
000270 01 B pic 9(10). 
000280 01 XXX PIC X(25S) 
000290 VALUE IS 

000300- "B&8B8BB". 
000310 PROCEDURE DIVISION. 
000320 HA IN. 



(29,29,2) (30 f 16,2) 
[17] 



2 0 0 



1 1 o 











000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 



DISPLAY XXX. 
OPEN IftPUT aaaaa. 
display mm. 
OPEN OUTPUT aaaaa. 
display www. 
OPEN INPUT aaaaa. 
display www. 
OPEN IMVT bbbbb. 
display www. 
doe 

STOP RUN. 
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[113] 



[15] 



IDENTIFICATION 
DIVISION 
PROGRAM- ID 
RFILE 



VALUE 
IS 

AAAAAABBBBBBB 
PROCEDURE 



0.8.14) 
(1,23, a) 
(2. 8.10) 
(2.19.5) 



(29,15.5) 
(29. 21 . 2) 

(29,25.6) (30,16,7) 
(31 . 8. 9) 



S 1 



S 2 



S 5 



S 6 



S 7 
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l®8] 



T*c*Y [4 0 1 



40 



2 0 



1 0 1 



10 3 
15 0 



10 4 



J 0 2 



15 3 15 4 



4 0 1 


1 


15 6 








15 7 





1 I 



"1 0 



3 0 



